home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / intrfc70.zip / TEST1.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-16  |  3KB  |  186 lines

  1. unit test1;
  2. {$O+,G+,N+,Y+,L+,D+}
  3. interface
  4. uses Dos,Printer;
  5.  
  6. type
  7.   ea1 = 0..2;
  8.   ea = (rr,tt,yy);
  9.  
  10. const
  11.   { These constants should all be printable }
  12.   i = 1;
  13.   b = true;
  14.   s = 'This is a string';
  15.   s_1 = #3'This is a string with control chars'#13#10'X'#0'0';
  16.   f = 1.23;
  17.   c = 'A';
  18.   e = 1e3000;
  19.   pp = ptr($40,8);
  20.   bs = [0..32];
  21.   cs = [#0..#32,'A','B','D'..'Z'];
  22.   es = [rr..yy];
  23.   ce = rr;
  24.  
  25. type
  26.   type1  = array[rr..yy] of byte;
  27.   type1_1 = array[1..43] of byte;
  28.   type1_2 = array[#4..#56] of byte;
  29.   type1_3 = array[False..True] of byte;
  30.   type1_4 = array[wordbool] of byte;
  31.  
  32.   type2 = record
  33.     b1 : byte;
  34.     b2 : byte;
  35.   end;
  36.  
  37.   type3 = object
  38.     b1 : byte;
  39.     b2 : byte;
  40.     constructor c(a1,a2:byte);
  41.     destructor  d;
  42.     procedure m;
  43.     procedure v; virtual;
  44.     procedure vd; virtual 5;
  45. {$IFDEF DPMI}
  46.     procedure ve; virtual 7;
  47. {$ENDIF}
  48.  
  49.     private
  50.  
  51.     pb1 : byte;
  52.     procedure pm;
  53.     procedure pv; virtual;
  54.   end;
  55.  
  56.   type3_1 = object
  57.     b1 : byte;
  58.     b2 : byte;
  59.     constructor c;
  60.     destructor  d;virtual;
  61.   end;
  62.  
  63.   type4 = file of byte;
  64.   type4_1 = file;
  65.   type4_2 = file of array [0..2] of Extended;
  66.  
  67.   type5 = text;
  68.  
  69.   type6 = function : byte;
  70.   type6_1 = procedure(var arg1:byte;arg2:type2;var arg3);
  71.  
  72.   type7 = set of byte;
  73.   type7_1 = set of 1..3;
  74.  
  75.   type8 = ^byte;
  76.   type8_1 = pointer;
  77.  
  78.   type9 = string;
  79.   type9_1 = string[30];
  80.  
  81.   type10 = comp;
  82.  
  83.   type11 = real;
  84.  
  85.   type12 = 1..6;
  86.  
  87.   type13 = boolean;
  88.  
  89.   type14 = char;
  90.  
  91.   type15 = (red, green, blue);
  92.  
  93. var
  94.   v : byte;
  95.   ab : array [0..9] of byte;
  96.   a : word absolute v;
  97.   a_1 : word absolute $40:$50;
  98.  
  99. var
  100.    testww:word;
  101. procedure p1;inline($8a/<4/>64555/testww+1/seg0040);
  102. procedure p2;
  103. procedure p3;
  104. {$IFDEF DPMI}
  105. procedure p4;
  106. procedure p41;
  107. {$ENDIF}
  108.  
  109. function func(v : byte; var r : byte):Byte;
  110. procedure proc(v : byte; var r : byte);
  111.  
  112. function  fun(v : byte; var r : byte) : byte;
  113.  
  114. implementation
  115. {$L TEST1.OBJ}
  116. {$IFDEF DPMI}
  117. procedure Onesd;far;external 'Test' name 'zkouska';
  118. procedure Onessd;far;external 'Test2' name 'z3kouska';
  119. procedure Oness;far;external 'Test3' index 1;
  120. {$ENDIF}
  121.     procedure AA; external;
  122.     constructor type3.c;  begin write('1') end;
  123.     destructor  type3.d;  begin write(lst,'12') end;
  124.     procedure   type3.m;  begin write(lst,'123') end;
  125.     procedure   type3.v;  begin  end;
  126.     procedure   type3.vd; begin  end;
  127.     procedure   type3.pm; begin end;
  128.     procedure   type3.pv; begin end;
  129. {$IFDEF DPMI}
  130.     procedure   type3.ve; external 'name' index 5;
  131. {$ENDIF}
  132.     constructor type3_1.c;  begin end;
  133.     destructor  type3_1.d;  begin end;
  134.     function func;
  135.     procedure proc;
  136.     begin
  137.     end;
  138.  
  139.     begin
  140.     end;
  141.  
  142.     procedure   proc;
  143.     var
  144.       a : word absolute v;
  145.       {sds:pathstr;}
  146.     begin
  147.       {a:= fcarry;}
  148.       a:=doserror;
  149.       {Exec('','');}
  150.       end;
  151. {$i test1.inc}
  152.  
  153.   procedure aa;external;
  154.  
  155.   procedure p11;near;
  156.   begin
  157.   end;
  158.  
  159.   procedure p12;interrupt;
  160.   begin
  161.   end;
  162.  
  163.   procedure p2; assembler;
  164.   asm
  165.   end;
  166.  
  167.   procedure p3;
  168.   procedure p12x;
  169.   begin
  170.     writeln(pos('4','4'));
  171.   end;
  172.   var datav:word;
  173.   const datac:word=0;
  174.   begin
  175.     p11;
  176.     p12x;
  177.   end;
  178. {$IFDEF DPMI}
  179.   procedure p4;external 'name' index 4;
  180.   procedure p41;external 'name' name 'test';
  181.   procedure p44;export;begin p4;end;
  182. {$ENDIF}
  183.  
  184. end.
  185.  
  186.